home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / NODSHVL.PRG < prev    next >
Text File  |  1993-05-04  |  620b  |  26 lines
  1. FUNCTION NodShVl
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   NodShVl() - Help button handler for NODSHAKE dialog box
  5. *
  6. * DESCRIPTION
  7. *
  8. * DEPENDENCIES
  9. *   gc_HSave = Help system restore variable.  If set, the help system
  10. *              will fire with its value.
  11. *
  12. *----------------------------------------------------------------------------
  13.   IF TYPE( "aClkObj[1,1]" ) = "N"
  14.     IF TYPE( "gc_HSave" ) = "C"
  15.       DO _HelpSys WITH &gc_HSave
  16.     ELSE
  17.       DO _Err_Box WITH [Help is not available]
  18.     ENDIF
  19.   ENDIF
  20.  
  21. RETURN .T.
  22. *-- EOF: NodShVl(  )
  23.  
  24.  
  25.  
  26.